home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / systray / ststray.bas next >
Encoding:
BASIC Source File  |  1999-10-10  |  869 b   |  25 lines
  1. Attribute VB_Name = "Systray"
  2. Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
  3. Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  4. Public Const NIM_ADD = &H0
  5. Public Const NIM_MODIFY = &H1
  6. Public Const NIM_DELETE = &H2
  7. Public Const NIF_MESSAGE = &H1
  8. Public Const NIF_ICON = &H2
  9. Public Const NIF_TIP = &H4
  10. Public Const WM_MOUSEMOVE = &H200
  11. Public Const WM_LBUTTONDOWN = &H201
  12. Public Const WM_RBUTTONDOWN = &H204
  13. Public Const WM_RBUTTONUP = &H205
  14. Public Const WM_RBUTTONDBLCLK = &H206
  15. Public nid As NOTIFYICONDATA
  16. Public Type NOTIFYICONDATA
  17.         cbSize As Long
  18.         hwnd As Long
  19.         uID As Long
  20.         uFlags As Long
  21.         uCallbackMessage As Long
  22.         hIcon As Long
  23.         szTip As String * 64
  24. End Type
  25.